LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
ENTITY ToneTaba IS
    PORT ( Index :  IN  STD_LOGIC_VECTOR (4 DOWNTO 0) ;
           CODE  : OUT  STD_LOGIC_VECTOR (3 DOWNTO 0) ;
           HIGH  : OUT STD_LOGIC_VECTOR (3 DOWNTO 0); 
           Tone  : OUT  STD_LOGIC_VECTOR (13 DOWNTO 0) );
END;
ARCHITECTURE one OF ToneTaba IS
BEGIN
    Search : PROCESS(Index)
    BEGIN
        CASE Index IS 
   WHEN "00000" => Tone<="10111011100000" ; CODE<="0000"; HIGH <="0000";
   WHEN "00001" => Tone<="00001000010101" ; CODE<="0001"; HIGH <="0000";
   WHEN "00010" => Tone<="00011011111000" ; CODE<="0010"; HIGH <="0000";
   WHEN "00011" => Tone<="00101101010010" ; CODE<="0011"; HIGH <="0000";
   when "00100" => Tone<="00110101010010" ; CODE<="0100"; HIGH <="0000";
   WHEN "00101" => Tone<="01000011111011" ; CODE<="0101"; HIGH <="0000";
   WHEN "00110" => Tone<="01010000111110" ; CODE<="0110"; HIGH <="0000";
   WHEN "00111" => Tone<="01011100100110" ; CODE<="0111"; HIGH <="0000";
   WHEN "01000" => Tone<="01100001111011" ; CODE<="0001"; HIGH <="0001";
   WHEN "01001" => Tone<="01101011101100" ; CODE<="0010"; HIGH <="0001";
   WHEN "01010" => Tone<="01110100011011" ; CODE<="0011"; HIGH <="0001";
   WHEN "01011" => Tone<="01111000011001" ; CODE<="0100"; HIGH <="0001";
   WHEN "01100" => Tone<="01111111101101" ; CODE<="0101"; HIGH <="0001";
   WHEN "01101" => Tone<="10000110001111" ; CODE<="0110"; HIGH <="0001";
   WHEN "01110" => Tone<="10001100000011" ; CODE<="0111"; HIGH <="0001";
   WHEN "01111" => Tone<="10001110101011" ; CODE<="0001"; HIGH <="0010";
   WHEN "10000" => Tone<="10010011100110" ; CODE<="0010"; HIGH <="0010";
   WHEN "10001" => Tone<="10010111111101" ; CODE<="0011"; HIGH <="0010";
   WHEN "10010" => Tone<="10011001111100" ; CODE<="0100"; HIGH <="0010";
   WHEN "10011" => Tone<="10011101100111" ; CODE<="0101"; HIGH <="0010";
   WHEN "10100" => Tone<="10100000110111" ; CODE<="0110"; HIGH <="0010";
   WHEN "10101" => Tone<="10100011110001" ; CODE<="0111"; HIGH <="0010";     
   WHEN OTHERS => NULL;
   END CASE;
   END PROCESS;
END;